home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Fall / rerun-1985-fall.d64 / turtle graphics (.txt) < prev   
Commodore BASIC  |  2022-09-20  |  3KB  |  50 lines
  1. 10 rem   turtle graphic routines
  2. 20 rem     by richard holleran
  3. 30 b=0:s=32793:e=s+191:t=24272:gosub80
  4. 40 s=e+1:e=s+191:t=22492:gosub80
  5. 50 s=e+1:e=s+179:t=22229:gosub80
  6. 60 poke1,55:sys33299:poke1,54:colr6,14
  7. 70 end
  8. 80 b=b+1:ck=0:fora=stoe:readd:pokea,d
  9. 90 ck=ck+d:next:ift=ckthenreturn
  10. 95 print"[147]"spc(210)"error in block #";b:end
  11. 99 rem   block #1
  12. 100 data 136,31,0,0,0,135,70,0,0,0,131,22,203,227,248,123
  13. 110 data 14,250,53,18,128,64,0,0,0,160,15,132,151,185,24,128
  14. 120 data 153,9,128,136,208,247,132,251,169,96,133,252,152,145,251,200
  15. 130 data 208,251,230,252,16,247,32,145,179,32,155,128,169,59,160,198
  16. 140 data 162,125,141,17,208,140,0,221,142,24,208,96,169,27,160,199
  17. 150 data 162,21,208,238,32,235,183,138,10,10,10,10,5,20,162,92
  18. 160 data 134,252,162,95,160,0,132,251,145,251,200,208,251,230,252,228
  19. 170 data 252,176,245,96,32,158,173,165,102,73,255,133,102,80,3,32
  20. 180 data 158,173,169,40,160,128,32,40,186,169,20,160,128,32,103,184
  21. 190 data 162,20,160,128,32,215,187,32,100,226,162,0,160,128,32,215
  22. 200 data 187,169,20,160,128,32,162,187,32,107,226,169,45,160,128,32
  23. 210 data 40,186,162,5,160,128,76,215,187,32,235,183,134,2,169,199
  24. 219 rem   block #2
  25. 220 data 229,2,201,200,176,66,170,41,7,168,165,21,240,9,74,208
  26. 230 data 55,165,20,201,64,176,49,169,12,133,252,138,41,248,170,42
  27. 240 data 38,252,42,38,252,42,38,252,101,20,41,248,133,251,165,21
  28. 250 data 101,252,133,252,138,74,74,74,101,252,133,252,165,20,41,7
  29. 260 data 170,177,251,29,209,129,145,251,96,133,251,160,128,32,162,187
  30. 270 data 165,251,73,10,160,128,32,103,184,166,251,160,128,32,215,187
  31. 280 data 32,155,188,165,101,166,100,96,32,158,173,165,102,48,46,32
  32. 290 data 57,129,134,26,56,176,26,169,10,32,34,129,133,20,134,21
  33. 300 data 169,15,32,34,129,208,7,166,151,240,3,32,219,128,165,25
  34. 310 data 56,233,1,133,25,165,26,233,0,133,26,16,218,96,233,85
  35. 320 data 133,151,32,115,0,208,251,96,162,45,76,181,128,138,48,8
  36. 330 data 72,32,101,128,104,76,59,164,76,116,164,162,0,160,0,189
  37. 339 rem   block #3
  38. 340 data 217,129,209,122,208,4,232,200,16,245,41,127,209,122,208,24
  39. 350 data 189,218,129,72,189,219,129,72,152,24,101,122,133,122,165,123
  40. 360 data 105,0,133,123,76,115,0,232,189,217,129,16,250,232,232,232
  41. 370 data 189,217,129,16,200,76,165,169,128,64,32,16,8,4,2,1
  42. 380 data 82,69,83,69,212,128,49,72,73,82,69,211,128,84,84,69
  43. 390 data 88,212,128,100,67,79,76,210,128,108,76,69,70,212,128,140
  44. 400 data 82,73,71,72,212,128,151,80,76,79,212,128,209,77,79,86
  45. 410 data 197,129,64,84,65,73,204,129,118,255,169,160,133,252,160,0
  46. 420 data 132,251,177,251,145,251,200,208,249,230,252,36,252,80,243,169
  47. 430 data 129,141,1,3,141,18,3,141,6,168,169,134,141,0,3,169
  48. 440 data 129,141,17,3,169,148,141,5,168,162,0,160,92,24,32,153
  49. 450 data 255,76,2,228
  50.